/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / modes / xpm-mode.elc.z / xpm-mode.elc

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 14 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 75 73 74 69 6e 62 |piled by| justinb|
|00000020| 40 65 62 6f 6e 79 2e 63 | 72 61 79 2e 63 6f 6d 20 |@ebony.c|ray.com |
|00000030| 6f 6e 20 4d 6f 6e 20 4d | 61 72 20 20 39 20 31 32 |on Mon M|ar  9 12|
|00000040| 3a 35 31 3a 35 39 20 31 | 39 39 38 0a 3b 3b 3b 20 |:51:59 1|998.;;; |
|00000050| 66 72 6f 6d 20 66 69 6c | 65 20 2f 68 6f 6d 65 2f |from fil|e /home/|
|00000060| 61 73 70 65 6e 30 37 2f | 6a 75 73 74 69 6e 62 2f |aspen07/|justinb/|
|00000070| 72 6f 6f 74 73 2f 66 72 | 65 65 77 61 72 65 2f 78 |roots/fr|eeware/x|
|00000080| 65 6d 61 63 73 2f 32 30 | 2e 33 2f 78 65 6d 61 63 |emacs/20|.3/xemac|
|00000090| 73 2d 32 30 2e 33 2f 6c | 69 73 70 2f 6d 6f 64 65 |s-20.3/l|isp/mode|
|000000a0| 73 2f 78 70 6d 2d 6d 6f | 64 65 2e 65 6c 0a 3b 3b |s/xpm-mo|de.el.;;|
|000000b0| 3b 20 65 6d 61 63 73 20 | 76 65 72 73 69 6f 6e 20 |; emacs |version |
|000000c0| 32 30 2e 34 20 22 45 6d | 65 72 61 6c 64 22 20 58 |20.4 "Em|erald" X|
|000000d0| 45 6d 61 63 73 20 20 4c | 75 63 69 64 2e 0a 3b 3b |Emacs  L|ucid..;;|
|000000e0| 3b 20 62 79 74 65 63 6f | 6d 70 20 76 65 72 73 69 |; byteco|mp versi|
|000000f0| 6f 6e 20 32 2e 32 35 20 | 58 45 6d 61 63 73 3b 20 |on 2.25 |XEmacs; |
|00000100| 32 32 2d 4d 61 72 2d 39 | 36 2e 0a 3b 3b 3b 20 6f |22-Mar-9|6..;;; o|
|00000110| 70 74 69 6d 69 7a 61 74 | 69 6f 6e 20 69 73 20 6f |ptimizat|ion is o|
|00000120| 6e 2e 0a 3b 3b 3b 20 74 | 68 69 73 20 66 69 6c 65 |n..;;; t|his file|
|00000130| 20 75 73 65 73 20 6f 70 | 63 6f 64 65 73 20 77 68 | uses op|codes wh|
|00000140| 69 63 68 20 64 6f 20 6e | 6f 74 20 65 78 69 73 74 |ich do n|ot exist|
|00000150| 20 69 6e 20 45 6d 61 63 | 73 20 31 39 2e 0a 0a 28 | in Emac|s 19...(|
|00000160| 69 66 20 28 61 6e 64 20 | 28 62 6f 75 6e 64 70 20 |if (and |(boundp |
|00000170| 27 65 6d 61 63 73 2d 76 | 65 72 73 69 6f 6e 29 0a |'emacs-v|ersion).|
|00000180| 09 20 28 6f 72 20 28 61 | 6e 64 20 28 62 6f 75 6e |. (or (a|nd (boun|
|00000190| 64 70 20 27 65 70 6f 63 | 68 3a 3a 76 65 72 73 69 |dp 'epoc|h::versi|
|000001a0| 6f 6e 29 20 65 70 6f 63 | 68 3a 3a 76 65 72 73 69 |on) epoc|h::versi|
|000001b0| 6f 6e 29 0a 09 20 20 20 | 20 20 28 73 74 72 69 6e |on)..   |  (strin|
|000001c0| 67 2d 6c 65 73 73 70 20 | 65 6d 61 63 73 2d 76 65 |g-lessp |emacs-ve|
|000001d0| 72 73 69 6f 6e 20 22 32 | 30 22 29 29 29 0a 20 20 |rsion "2|0"))).  |
|000001e0| 20 20 28 65 72 72 6f 72 | 20 22 60 78 70 6d 2d 6d |  (error| "`xpm-m|
|000001f0| 6f 64 65 2e 65 6c 27 20 | 77 61 73 20 63 6f 6d 70 |ode.el' |was comp|
|00000200| 69 6c 65 64 20 66 6f 72 | 20 45 6d 61 63 73 20 32 |iled for| Emacs 2|
|00000210| 30 22 29 29 0a 0a 28 6f | 72 20 28 62 6f 75 6e 64 |0"))..(o|r (bound|
|00000220| 70 20 27 63 75 72 72 65 | 6e 74 2d 6c 6f 61 64 2d |p 'curre|nt-load-|
|00000230| 6c 69 73 74 29 20 28 73 | 65 74 71 20 63 75 72 72 |list) (s|etq curr|
|00000240| 65 6e 74 2d 6c 6f 61 64 | 2d 6c 69 73 74 20 6e 69 |ent-load|-list ni|
|00000250| 6c 29 29 0a 0a 0a 28 62 | 79 74 65 2d 63 6f 64 65 |l))...(b|yte-code|
|00000260| 20 22 c0 c1 21 88 c2 c3 | 21 ac 82 c4 13 c3 0d 42 | "..!...|!......B|
|00000270| 15 c2 c6 21 ac 83 c4 16 | 06 c6 0d 42 15 c2 c7 21 |...!....|...B...!|
|00000280| ac 83 c4 16 07 c7 0d 42 | 15 c2 c8 21 ac 83 c4 16 |.......B|...!....|
|00000290| 08 c8 0d 42 15 c2 c9 21 | ac 83 ca 16 09 c9 0d 42 |...B...!|.......B|
|000002a0| 15 c2 cb 21 ac 83 c4 16 | 0b cb 0d 42 15 c4 87 22 |...!....|...B..."|
|000002b0| 20 5b 72 65 71 75 69 72 | 65 20 61 6e 6e 6f 74 61 | [requir|e annota|
|000002c0| 74 69 6f 6e 73 20 62 6f | 75 6e 64 70 20 78 70 6d |tions bo|undp xpm|
|000002d0| 2d 70 69 78 65 6c 2d 76 | 61 6c 75 65 73 20 6e 69 |-pixel-v|alues ni|
|000002e0| 6c 20 63 75 72 72 65 6e | 74 2d 6c 6f 61 64 2d 6c |l curren|t-load-l|
|000002f0| 69 73 74 20 78 70 6d 2d | 67 6c 79 70 68 20 78 70 |ist xpm-|glyph xp|
|00000300| 6d 2d 61 6e 6e 6f 20 78 | 70 6d 2d 70 61 69 6e 74 |m-anno x|pm-paint|
|00000310| 2d 73 74 72 69 6e 67 20 | 78 70 6d 2d 63 68 61 72 |-string |xpm-char|
|00000320| 73 2d 70 65 72 2d 70 69 | 78 65 6c 20 31 20 78 70 |s-per-pi|xel 1 xp|
|00000330| 6d 2d 70 61 6c 65 74 74 | 65 5d 20 32 29 0a 23 40 |m-palett|e] 2).#@|
|00000340| 31 34 39 20 49 66 20 6e | 6f 6e 2d 6e 69 6c 2c 20 |149 If n|on-nil, |
|00000350| 75 70 64 61 74 65 20 61 | 63 74 75 61 6c 2d 73 69 |update a|ctual-si|
|00000360| 7a 65 20 69 6d 61 67 65 | 20 61 66 74 65 72 20 65 |ze image| after e|
|00000370| 76 65 72 79 20 63 6c 69 | 63 6b 20 6f 72 20 64 72 |very cli|ck or dr|
|00000380| 61 67 20 6d 6f 76 65 6d | 65 6e 74 2e 0a 4f 74 68 |ag movem|ent..Oth|
|00000390| 65 72 77 69 73 65 2c 20 | 6f 6e 6c 79 20 75 70 64 |erwise, |only upd|
|000003a0| 61 74 65 20 6f 6e 20 62 | 75 74 74 6f 6e 20 72 65 |ate on b|utton re|
|000003b0| 6c 65 61 73 65 73 20 6f | 72 20 77 68 65 6e 20 61 |leases o|r when a|
|000003c0| 73 6b 65 64 20 74 6f 2e | 20 20 54 68 69 73 20 69 |sked to.|  This i|
|000003d0| 73 20 73 6c 6f 77 2e 1f | 0a 28 64 65 66 76 61 72 |s slow..|.(defvar|
|000003e0| 20 78 70 6d 2d 61 6c 77 | 61 79 73 2d 75 70 64 61 | xpm-alw|ays-upda|
|000003f0| 74 65 2d 69 6d 61 67 65 | 20 6e 69 6c 20 28 23 24 |te-image| nil (#$|
|00000400| 20 2e 20 38 33 36 29 29 | 0a 28 62 79 74 65 2d 63 | . 836))|.(byte-c|
|00000410| 6f 64 65 20 22 c0 c1 21 | 88 c0 c2 21 88 c0 c3 21 |ode "..!|...!...!|
|00000420| 88 c0 c4 21 88 c0 c5 21 | 88 c0 c6 21 87 22 20 5b |...!...!|...!." [|
|00000430| 6d 61 6b 65 2d 76 61 72 | 69 61 62 6c 65 2d 62 75 |make-var|iable-bu|
|00000440| 66 66 65 72 2d 6c 6f 63 | 61 6c 20 78 70 6d 2d 70 |ffer-loc|al xpm-p|
|00000450| 61 6c 65 74 74 65 20 78 | 70 6d 2d 63 68 61 72 73 |alette x|pm-chars|
|00000460| 2d 70 65 72 2d 70 69 78 | 65 6c 20 78 70 6d 2d 70 |-per-pix|el xpm-p|
|00000470| 61 69 6e 74 2d 73 74 72 | 69 6e 67 20 78 70 6d 2d |aint-str|ing xpm-|
|00000480| 67 6c 79 70 68 20 78 70 | 6d 2d 61 6e 6e 6f 20 78 |glyph xp|m-anno x|
|00000490| 70 6d 2d 70 69 78 65 6c | 2d 76 61 6c 75 65 73 5d |pm-pixel|-values]|
|000004a0| 20 32 29 0a 23 40 35 31 | 20 4d 61 6b 65 73 20 61 | 2).#@51| Makes a|
|000004b0| 20 66 61 63 65 20 77 69 | 74 68 20 6e 61 6d 65 20 | face wi|th name |
|000004c0| 78 70 6d 2d 4e 41 4d 45 | 2c 20 61 6e 64 20 63 6f |xpm-NAME|, and co|
|000004d0| 6c 6f 75 72 20 4e 41 4d | 45 2e 1f 0a 28 64 65 66 |lour NAM|E...(def|
|000004e0| 61 6c 69 61 73 20 27 78 | 70 6d 2d 6d 61 6b 65 2d |alias 'x|pm-make-|
|000004f0| 66 61 63 65 20 23 5b 28 | 6e 61 6d 65 29 20 22 c0 |face #[(|name) ".|
|00000500| c1 c2 0b 50 21 c4 c5 23 | 1e 06 c7 0e 06 0b 5c 22 |...P!..#|......\"|
|00000510| 88 c8 0e 06 c9 5c 22 88 | 0e 06 29 87 22 20 5b 6d |.....\".|..)." [m|
|00000520| 61 6b 65 2d 66 61 63 65 | 20 69 6e 74 65 72 6e 20 |ake-face| intern |
|00000530| 22 78 70 6d 2d 22 20 6e | 61 6d 65 20 22 54 65 6d |"xpm-" n|ame "Tem|
|00000540| 70 6f 72 61 72 79 20 78 | 70 6d 2d 6d 6f 64 65 20 |porary x|pm-mode |
|00000550| 66 61 63 65 22 20 74 20 | 66 61 63 65 20 73 65 74 |face" t |face set|
|00000560| 2d 66 61 63 65 2d 62 61 | 63 6b 67 72 6f 75 6e 64 |-face-ba|ckground|
|00000570| 20 73 65 74 2d 66 61 63 | 65 2d 66 6f 72 65 67 72 | set-fac|e-foregr|
|00000580| 6f 75 6e 64 20 22 62 6c | 61 63 6b 22 5d 20 34 20 |ound "bl|ack"] 4 |
|00000590| 28 23 24 20 2e 20 31 31 | 39 33 29 5d 29 0a 23 40 |(#$ . 11|93)]).#@|
|000005a0| 35 38 20 54 72 65 61 74 | 20 74 68 65 20 63 75 72 |58 Treat| the cur|
|000005b0| 72 65 6e 74 20 62 75 66 | 66 65 72 20 61 73 20 61 |rent buf|fer as a|
|000005c0| 6e 20 78 70 6d 20 66 69 | 6c 65 20 61 6e 64 20 63 |n xpm fi|le and c|
|000005d0| 6f 6c 6f 72 69 7a 65 20 | 69 74 2e 1f 0a 28 64 65 |olorize |it...(de|
|000005e0| 66 61 6c 69 61 73 20 27 | 78 70 6d 2d 69 6e 69 74 |falias '|xpm-init|
|000005f0| 20 23 5b 6e 69 6c 20 22 | c0 c1 21 88 c2 13 c4 20 | #[nil "|..!.... |
|00000600| 88 c2 15 c6 c7 21 88 8a | 65 62 88 c8 79 88 c9 ca |.....!..|eb..y...|
|00000610| 21 88 cb cc 21 ac 86 c9 | ca 21 88 aa 75 c9 ca 21 |!...!...|.!..u..!|
|00000620| 88 cb cc 21 ac 86 c9 ca | 21 88 aa 75 8a 65 62 88 |...!....|!..u.eb.|
|00000630| cd ce 64 cf 23 ab 87 d0 | d1 d2 21 21 16 13 29 c8 |..d.#...|..!!..).|
|00000640| 1e 14 0e 14 d5 20 57 ab | 91 d6 20 88 0e 14 54 16 |..... W.|.. ...T.|
|00000650| 14 c9 ca 21 88 c8 79 88 | aa 68 2a 0e 17 d8 61 ac |...!..y.|.h*...a.|
|00000660| 83 d8 20 88 d9 da 21 ab | 91 db 0e 1c dd 20 de 42 |.. ...!.|..... .B|
|00000670| 5c 22 88 db 0e 1f 70 0d | 42 5c 22 88 c6 e0 21 88 |\"....p.|B\"...!.|
|00000680| e1 20 88 c6 e2 21 88 e3 | 20 87 22 20 5b 72 65 71 |. ...!..| ." [req|
|00000690| 75 69 72 65 20 70 69 63 | 74 75 72 65 20 6e 69 6c |uire pic|ture nil|
|000006a0| 20 78 70 6d 2d 70 69 78 | 65 6c 2d 76 61 6c 75 65 | xpm-pix|el-value|
|000006b0| 73 20 78 70 6d 2d 63 6c | 65 61 72 2d 65 78 74 65 |s xpm-cl|ear-exte|
|000006c0| 6e 74 73 20 78 70 6d 2d | 70 61 6c 65 74 74 65 20 |nts xpm-|palette |
|000006d0| 6d 65 73 73 61 67 65 20 | 22 46 69 6e 64 69 6e 67 |message |"Finding|
|000006e0| 20 6e 75 6d 62 65 72 20 | 6f 66 20 63 6f 6c 6f 72 | number |of color|
|000006f0| 73 2e 2e 2e 22 20 30 20 | 6e 65 78 74 2d 6c 69 6e |s..." 0 |next-lin|
|00000700| 65 20 31 20 6c 6f 6f 6b | 69 6e 67 2d 61 74 20 22 |e 1 look|ing-at "|
|00000710| 5c 5c 73 2d 2a 5c 22 22 | 20 72 65 2d 73 65 61 72 |\\s-*\""| re-sear|
|00000720| 63 68 2d 66 6f 72 77 61 | 72 64 20 22 5c 22 5c 5c |ch-forwa|rd "\"\\|
|00000730| 73 2d 2a 5c 5c 28 5b 30 | 2d 39 5d 2b 5c 5c 29 5c |s-*\\([0|-9]+\\)\|
|00000740| 5c 73 2d 2b 5c 5c 28 5b | 30 2d 39 5d 2b 5c 5c 29 |\s-+\\([|0-9]+\\)|
|00000750| 5c 5c 73 2d 2b 5c 5c 28 | 5b 30 2d 39 5d 2b 5c 5c |\\s-+\\(|[0-9]+\\|
|00000760| 29 5c 5c 73 2d 2b 5c 5c | 28 5b 30 2d 39 5d 2b 5c |)\\s-+\\|([0-9]+\|
|00000770| 5c 29 5c 5c 73 2d 2a 22 | 20 74 20 73 74 72 69 6e |\)\\s-*"| t strin|
|00000780| 67 2d 74 6f 2d 69 6e 74 | 20 6d 61 74 63 68 2d 73 |g-to-int| match-s|
|00000790| 74 72 69 6e 67 20 34 20 | 78 70 6d 2d 63 68 61 72 |tring 4 |xpm-char|
|000007a0| 73 2d 70 65 72 2d 70 69 | 78 65 6c 20 63 6f 20 78 |s-per-pi|xel co x|
|000007b0| 70 6d 2d 6e 75 6d 2d 63 | 6f 6c 6f 72 73 20 78 70 |pm-num-c|olors xp|
|000007c0| 6d 2d 70 61 72 73 65 2d | 63 6f 6c 6f 72 20 6d 61 |m-parse-|color ma|
|000007d0| 6a 6f 72 2d 6d 6f 64 65 | 20 70 69 63 74 75 72 65 |jor-mode| picture|
|000007e0| 2d 6d 6f 64 65 20 66 65 | 61 74 75 72 65 70 20 74 |-mode fe|aturep t|
|000007f0| 6f 6f 6c 62 61 72 20 73 | 65 74 2d 73 70 65 63 69 |oolbar s|et-speci|
|00000800| 66 69 65 72 20 6c 65 66 | 74 2d 74 6f 6f 6c 62 61 |fier lef|t-toolba|
|00000810| 72 2d 77 69 64 74 68 20 | 73 65 6c 65 63 74 65 64 |r-width |selected|
|00000820| 2d 66 72 61 6d 65 20 31 | 36 20 6c 65 66 74 2d 74 |-frame 1|6 left-t|
|00000830| 6f 6f 6c 62 61 72 20 22 | 50 61 72 73 69 6e 67 20 |oolbar "|Parsing |
|00000840| 62 6f 64 79 2e 2e 2e 22 | 20 78 70 6d 2d 63 6f 6c |body..."| xpm-col|
|00000850| 6f 72 2d 64 61 74 61 20 | 22 50 61 72 73 69 6e 67 |or-data |"Parsing|
|00000860| 20 62 6f 64 79 2e 2e 2e | 64 6f 6e 65 22 20 78 70 | body...|done" xp|
|00000870| 6d 2d 73 68 6f 77 2d 69 | 6d 61 67 65 5d 20 34 20 |m-show-i|mage] 4 |
|00000880| 28 23 24 20 2e 20 31 34 | 34 33 29 20 6e 69 6c 5d |(#$ . 14|43) nil]|
|00000890| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 78 70 6d |).(defal|ias 'xpm|
|000008a0| 2d 63 6c 65 61 72 2d 65 | 78 74 65 6e 74 73 20 23 |-clear-e|xtents #|
|000008b0| 5b 6e 69 6c 20 22 c0 89 | 19 1a c1 70 21 12 c1 5c |[nil "..|...p!..\|
|000008c0| 6e 21 11 5c 6e ad 8c c3 | 5c 6e 21 88 09 12 c1 5c |n!.\n...|\n!....\|
|000008d0| 6e 21 11 aa 71 2a 87 22 | 20 5b 6e 69 6c 20 6e 65 |n!..q*."| [nil ne|
|000008e0| 78 74 2d 65 78 74 65 6e | 74 20 63 75 72 2d 65 78 |xt-exten|t cur-ex|
|000008f0| 74 65 6e 74 20 64 65 6c | 65 74 65 2d 65 78 74 65 |tent del|ete-exte|
|00000900| 6e 74 5d 20 32 5d 29 0a | 28 64 65 66 61 6c 69 61 |nt] 2]).|(defalia|
|00000910| 73 20 27 78 70 6d 2d 63 | 6f 6c 6f 72 2d 64 61 74 |s 'xpm-c|olor-dat|
|00000920| 61 20 23 5b 6e 69 6c 20 | 22 8a c0 c1 21 88 c2 89 |a #[nil |"...!...|
|00000930| 89 1b 1c 1d 60 64 57 ad | b3 60 0e 06 5c 5c 64 57 |....`dW.|.`..\\dW|
|00000940| ad ab 60 60 0e 06 5c 5c | 7b 14 c7 0c 0e 08 5c 22 |..``..\\|{.....\"|
|00000950| 13 c9 60 60 0e 06 5c 5c | 5c 22 15 0b ab 88 ca 0d |..``..\\|\"......|
|00000960| 0b 41 5c 22 88 aa 85 ca | 0d cb 5c 22 88 0e 06 75 |.A\"....|..\"...u|
|00000970| 88 aa 48 2c 87 22 20 5b | 78 70 6d 2d 67 6f 74 6f |..H,." [|xpm-goto|
|00000980| 2d 62 6f 64 79 2d 6c 69 | 6e 65 20 30 20 6e 69 6c |-body-li|ne 0 nil|
|00000990| 20 70 69 78 65 6c 2d 63 | 6f 6c 6f 72 20 70 69 78 | pixel-c|olor pix|
|000009a0| 65 6c 2d 63 68 61 72 73 | 20 65 78 74 20 78 70 6d |el-chars| ext xpm|
|000009b0| 2d 63 68 61 72 73 2d 70 | 65 72 2d 70 69 78 65 6c |-chars-p|er-pixel|
|000009c0| 20 61 73 73 6f 63 20 78 | 70 6d 2d 70 69 78 65 6c | assoc x|pm-pixel|
|000009d0| 2d 76 61 6c 75 65 73 20 | 6d 61 6b 65 2d 65 78 74 |-values |make-ext|
|000009e0| 65 6e 74 20 73 65 74 2d | 65 78 74 65 6e 74 2d 66 |ent set-|extent-f|
|000009f0| 61 63 65 20 64 65 66 61 | 75 6c 74 5d 20 34 20 6e |ace defa|ult] 4 n|
|00000a00| 69 6c 20 6e 69 6c 5d 29 | 0a 28 64 65 66 61 6c 69 |il nil])|.(defali|
|00000a10| 61 73 20 27 78 70 6d 2d | 6e 75 6d 2d 63 6f 6c 6f |as 'xpm-|num-colo|
|00000a20| 72 73 20 23 5b 6e 69 6c | 20 22 8a 65 62 88 c0 c1 |rs #[nil| ".eb...|
|00000a30| 64 c2 23 ab 87 c3 c4 c5 | 21 21 aa 83 c6 c7 21 29 |d.#.....|!!....!)|
|00000a40| 87 22 20 5b 72 65 2d 73 | 65 61 72 63 68 2d 66 6f |." [re-s|earch-fo|
|00000a50| 72 77 61 72 64 20 22 5c | 22 5c 5c 73 2d 2a 5c 5c |rward "\|"\\s-*\\|
|00000a60| 28 5b 30 2d 39 5d 2b 5c | 5c 29 5c 5c 73 2d 2b 5c |([0-9]+\|\)\\s-+\|
|00000a70| 5c 28 5b 30 2d 39 5d 2b | 5c 5c 29 5c 5c 73 2d 2b |\([0-9]+|\\)\\s-+|
|00000a80| 5c 5c 28 5b 30 2d 39 5d | 2b 5c 5c 29 5c 5c 73 2d |\\([0-9]|+\\)\\s-|
|00000a90| 2b 5c 5c 28 5b 30 2d 39 | 5d 2b 5c 5c 29 5c 5c 73 |+\\([0-9|]+\\)\\s|
|00000aa0| 2d 2a 22 20 74 20 73 74 | 72 69 6e 67 2d 74 6f 2d |-*" t st|ring-to-|
|00000ab0| 69 6e 74 20 6d 61 74 63 | 68 2d 73 74 72 69 6e 67 |int matc|h-string|
|00000ac0| 20 33 20 65 72 72 6f 72 | 20 22 55 6e 61 62 6c 65 | 3 error| "Unable|
|00000ad0| 20 74 6f 20 70 61 72 73 | 65 20 78 70 6d 20 69 6e | to pars|e xpm in|
|00000ae0| 66 6f 72 6d 61 74 69 6f | 6e 22 5d 20 34 5d 29 0a |formatio|n"] 4]).|
|00000af0| 28 64 65 66 61 6c 69 61 | 73 20 27 78 70 6d 2d 6d |(defalia|s 'xpm-m|
|00000b00| 61 6b 65 2d 73 6f 6c 69 | 64 2d 70 69 78 6d 61 70 |ake-soli|d-pixmap|
|00000b10| 20 23 5b 28 63 6f 6c 6f | 75 72 20 77 69 64 74 68 | #[(colo|ur width|
|00000b20| 20 68 65 69 67 68 74 29 | 20 22 c0 89 c1 89 1a 1b | height)| "......|
|00000b30| 1c 1d c6 13 0d 0e 07 57 | ab 8a 0b c8 50 13 0d 54 |.......W|....P..T|
|00000b40| 89 15 aa 71 0b c9 50 13 | ca cb 0e 0c 0e 07 0e 0d |...q..P.|........|
|00000b50| 0e 0c 25 12 0c 0e 0d 57 | ab 8a 5c 6e 0b 50 12 0c |..%....W|..\n.P..|
|00000b60| 54 89 14 aa 71 ce 5c 6e | cf 50 21 2c 87 22 20 5b |T...q.\n|.P!,." [|
|00000b70| 30 20 6e 69 6c 20 74 6f | 74 61 6c 20 6c 69 6e 65 |0 nil to|tal line|
|00000b80| 20 79 20 78 20 22 2c 5c | 6e 5c 22 22 20 77 69 64 | y x ",\|n\"" wid|
|00000b90| 74 68 20 22 2e 22 20 22 | 5c 22 22 20 66 6f 72 6d |th "." "|\"" form|
|00000ba0| 61 74 20 22 2f 2a 20 58 | 50 4d 20 2a 2f 5c 6e 73 |at "/* X|PM */\ns|
|00000bb0| 74 61 74 69 63 20 63 68 | 61 72 20 2a 20 25 73 5b |tatic ch|ar * %s[|
|00000bc0| 5d 20 3d 20 7b 5c 6e 5c | 22 25 64 20 25 64 20 31 |] = {\n\|"%d %d 1|
|00000bd0| 20 31 5c 22 2c 5c 6e 5c | 22 2e 20 63 20 25 73 5c | 1\",\n\|". c %s\|
|00000be0| 22 22 20 63 6f 6c 6f 75 | 72 20 68 65 69 67 68 74 |"" colou|r height|
|00000bf0| 20 6d 61 6b 65 2d 67 6c | 79 70 68 20 22 7d 3b 5c | make-gl|yph "};\|
|00000c00| 6e 22 5d 20 37 5d 29 0a | 23 40 32 31 37 20 41 64 |n"] 7]).|#@217 Ad|
|00000c10| 64 20 53 54 52 20 74 6f | 20 78 70 6d 2d 70 69 78 |d STR to| xpm-pix|
|00000c20| 65 6c 2d 76 61 6c 75 65 | 73 20 77 69 74 68 20 61 |el-value|s with a|
|00000c30| 20 6e 65 77 20 66 61 63 | 65 20 73 65 74 20 74 6f | new fac|e set to|
|00000c40| 20 62 61 63 6b 67 72 6f | 75 6e 64 20 43 4f 4c 4f | backgro|und COLO|
|00000c50| 52 0a 69 66 20 53 54 52 | 20 61 6c 72 65 61 64 79 |R.if STR| already|
|00000c60| 20 68 61 73 20 61 6e 20 | 65 6e 74 72 79 2c 20 74 | has an |entry, t|
|00000c70| 68 65 20 65 78 69 73 74 | 69 6e 67 20 66 61 63 65 |he exist|ing face|
|00000c80| 20 77 69 6c 6c 20 62 65 | 20 75 73 65 64 2c 20 77 | will be| used, w|
|00000c90| 69 74 68 20 74 68 65 0a | 6e 65 77 20 63 6f 6c 6f |ith the.|new colo|
|00000ca0| 72 20 72 65 70 6c 61 63 | 69 6e 67 20 74 68 65 20 |r replac|ing the |
|00000cb0| 6f 6c 64 20 28 6f 6e 20 | 74 68 65 20 64 69 73 70 |old (on |the disp|
|00000cc0| 6c 61 79 20 6f 6e 6c 79 | 2c 20 6e 6f 74 20 69 6e |lay only|, not in|
|00000cd0| 20 74 68 65 20 78 70 6d | 20 63 6f 6c 6f 72 0a 64 | the xpm| color.d|
|00000ce0| 65 66 73 21 29 1f 0a 28 | 64 65 66 61 6c 69 61 73 |efs!)..(|defalias|
|00000cf0| 20 27 78 70 6d 2d 73 74 | 6f 72 65 2d 63 6f 6c 6f | 'xpm-st|ore-colo|
|00000d00| 72 20 23 5b 28 73 74 72 | 20 63 6f 6c 6f 72 29 20 |r #[(str| color) |
|00000d10| 22 c0 19 c2 0b 21 11 c4 | 09 0b 5c 22 88 c5 c6 0b |"....!..|..\"....|
|00000d20| 21 21 89 1e 07 47 c8 56 | ab a4 0e 07 c8 9c c9 56 |!!...G.V|.......V|
|00000d30| ac 90 0e 07 ca 9c c9 56 | ac 88 0e 07 cb 9c c9 56 |.......V|.......V|
|00000d40| ab 87 cc 09 cd 5c 22 88 | aa 85 cc 09 ce 5c 22 88 |.....\".|.....\".|
|00000d50| 29 0e 0f 09 42 0e 10 42 | 16 10 d1 d2 21 ad 99 d3 |)...B..B|....!...|
|00000d60| d4 0b d5 89 23 43 d6 d7 | d8 d9 da 0e 0f 45 46 db |....#C..|.....EF.|
|00000d70| 0b 24 0e 1c 42 89 16 1c | 29 87 22 20 5b 6e 69 6c |.$..B...|)." [nil|
|00000d80| 20 6e 65 77 2d 66 61 63 | 65 20 78 70 6d 2d 6d 61 | new-fac|e xpm-ma|
|00000d90| 6b 65 2d 66 61 63 65 20 | 63 6f 6c 6f 72 20 73 65 |ke-face |color se|
|00000da0| 74 2d 66 61 63 65 2d 62 | 61 63 6b 67 72 6f 75 6e |t-face-b|ackgroun|
|00000db0| 64 20 63 6f 6c 6f 72 2d | 72 67 62 2d 63 6f 6d 70 |d color-|rgb-comp|
|00000dc0| 6f 6e 65 6e 74 73 20 6d | 61 6b 65 2d 63 6f 6c 6f |onents m|ake-colo|
|00000dd0| 72 2d 73 70 65 63 69 66 | 69 65 72 20 63 63 63 20 |r-specif|ier ccc |
|00000de0| 30 20 33 32 37 36 37 20 | 31 20 32 20 73 65 74 2d |0 32767 |1 2 set-|
|00000df0| 66 61 63 65 2d 66 6f 72 | 65 67 72 6f 75 6e 64 20 |face-for|eground |
|00000e00| 22 62 6c 61 63 6b 22 20 | 22 77 68 69 74 65 22 20 |"black" |"white" |
|00000e10| 73 74 72 20 78 70 6d 2d | 70 69 78 65 6c 2d 76 61 |str xpm-|pixel-va|
|00000e20| 6c 75 65 73 20 66 65 61 | 74 75 72 65 70 20 74 6f |lues fea|turep to|
|00000e30| 6f 6c 62 61 72 20 76 65 | 63 74 6f 72 20 78 70 6d |olbar ve|ctor xpm|
|00000e40| 2d 6d 61 6b 65 2d 73 6f | 6c 69 64 2d 70 69 78 6d |-make-so|lid-pixm|
|00000e50| 61 70 20 31 32 20 6c 61 | 6d 62 64 61 20 28 65 76 |ap 12 la|mbda (ev|
|00000e60| 65 6e 74 29 20 28 69 6e | 74 65 72 61 63 74 69 76 |ent) (in|teractiv|
|00000e70| 65 20 22 65 22 29 20 78 | 70 6d 2d 74 6f 6f 6c 62 |e "e") x|pm-toolb|
|00000e80| 61 72 2d 73 65 6c 65 63 | 74 2d 63 6f 6c 6f 75 72 |ar-selec|t-colour|
|00000e90| 20 65 76 65 6e 74 20 74 | 20 78 70 6d 2d 70 61 6c | event t| xpm-pal|
|00000ea0| 65 74 74 65 5d 20 39 20 | 28 23 24 20 2e 20 33 30 |ette] 9 |(#$ . 30|
|00000eb0| 38 36 29 5d 29 0a 23 40 | 36 30 20 50 61 72 73 65 |86)]).#@|60 Parse|
|00000ec0| 20 78 70 6d 20 63 6f 6c | 6f 72 20 73 74 72 69 6e | xpm col|or strin|
|00000ed0| 67 20 66 72 6f 6d 20 63 | 75 72 72 65 6e 74 20 6c |g from c|urrent l|
|00000ee0| 69 6e 65 20 61 6e 64 20 | 73 65 74 20 74 68 65 20 |ine and |set the |
|00000ef0| 63 6f 6c 6f 72 1f 0a 28 | 64 65 66 61 6c 69 61 73 |color..(|defalias|
|00000f00| 20 27 78 70 6d 2d 70 61 | 72 73 65 2d 63 6f 6c 6f | 'xpm-pa|rse-colo|
|00000f10| 72 20 23 5b 6e 69 6c 20 | 22 c0 19 8a c0 7f 88 60 |r #[nil |"......`|
|00000f20| 11 c2 79 88 c3 c4 c5 0e | 06 c7 5c 22 c8 c9 ca b0 |..y.....|..\"....|
|00000f30| 05 09 cb 23 ab 92 cc cd | ce 21 cd cf 21 5c 22 88 |...#....|.!..!\".|
|00000f40| cd ce 21 cd cf 21 44 aa | 83 d0 d1 21 2a 87 22 20 |..!..!D.|...!*." |
|00000f50| 5b 6e 69 6c 20 65 6e 64 | 20 30 20 72 65 2d 73 65 |[nil end| 0 re-se|
|00000f60| 61 72 63 68 2d 66 6f 72 | 77 61 72 64 20 22 5c 22 |arch-for|ward "\"|
|00000f70| 5c 5c 28 22 20 6d 61 6b | 65 2d 73 74 72 69 6e 67 |\\(" mak|e-string|
|00000f80| 20 78 70 6d 2d 63 68 61 | 72 73 2d 70 65 72 2d 70 | xpm-cha|rs-per-p|
|00000f90| 69 78 65 6c 20 3f 5c 2e | 20 22 5c 5c 29 22 20 22 |ixel ?\.| "\\)" "|
|00000fa0| 5c 5c 73 2d 2b 5c 5c 28 | 5b 63 5d 5c 5c 29 22 20 |\\s-+\\(|[c]\\)" |
|00000fb0| 22 5c 5c 73 2d 2b 5c 5c | 28 5b 5e 5c 22 5d 2b 5c |"\\s-+\\|([^\"]+\|
|00000fc0| 5c 29 5c 22 22 20 74 20 | 78 70 6d 2d 73 74 6f 72 |\)\"" t |xpm-stor|
|00000fd0| 65 2d 63 6f 6c 6f 72 20 | 6d 61 74 63 68 2d 73 74 |e-color |match-st|
|00000fe0| 72 69 6e 67 20 31 20 33 | 20 65 72 72 6f 72 20 22 |ring 1 3| error "|
|00000ff0| 55 6e 61 62 6c 65 20 74 | 6f 20 70 61 72 73 65 20 |Unable t|o parse |
|00001000| 63 6f 6c 6f 72 22 5d 20 | 36 20 28 23 24 20 2e 20 |color"] |6 (#$ . |
|00001010| 33 37 37 31 29 20 6e 69 | 6c 5d 29 0a 23 40 34 34 |3771) ni|l]).#@44|
|00001020| 20 61 64 64 20 61 20 63 | 6f 6c 6f 72 20 74 6f 20 | add a c|olor to |
|00001030| 61 6e 20 78 70 6d 27 73 | 20 6c 69 73 74 20 6f 66 |an xpm's| list of|
|00001040| 20 63 6f 6c 6f 72 20 64 | 65 66 73 1f 0a 28 64 65 | color d|efs..(de|
|00001050| 66 61 6c 69 61 73 20 27 | 78 70 6d 2d 61 64 64 2d |falias '|xpm-add-|
|00001060| 63 6f 6c 6f 72 20 23 5b | 28 73 74 72 20 63 6f 6c |color #[|(str col|
|00001070| 6f 72 29 20 22 8a 65 62 | 88 c0 c1 21 ac 86 c2 c3 |or) ".eb|...!....|
|00001080| 21 88 aa 75 c2 c3 21 88 | c0 c1 21 ac 86 c2 c3 21 |!..u..!.|..!....!|
|00001090| 88 aa 75 c4 1d c4 c6 20 | 57 ab 8a c2 c3 21 88 0d |..u.... |W....!..|
|000010a0| 54 89 15 aa 71 29 c7 c8 | 0e 09 0e 5c 6e 23 63 88 |T...q)..|...\n#c.|
|000010b0| cb c3 21 88 cc 20 88 65 | 62 88 c0 c1 21 ac 86 c2 |..!.. .e|b...!...|
|000010c0| c3 21 88 aa 75 c4 1e 0d | 60 66 ce 55 ac 86 60 66 |.!..u...|`f.U..`f|
|000010d0| cf 55 ab 85 c3 75 88 aa | 6f 0e 0d d0 57 ab 9b 60 |.U...u..|o...W..`|
|000010e0| 66 ce 61 ab 90 0e 0d 54 | 16 0d 60 66 ce 61 ab 69 |f.a....T|..`f.a.i|
|000010f0| c3 75 88 aa 75 c3 75 88 | aa 5f c6 20 1e 11 60 66 |.u..u.u.|._. ..`f|
|00001100| d2 59 ab 8c 60 66 d3 58 | ab 86 d4 c3 21 88 aa 6e |.Y..`f.X|....!..n|
|00001110| d5 0e 11 54 21 63 2b 87 | 22 20 5b 6c 6f 6f 6b 69 |...T!c+.|" [looki|
|00001120| 6e 67 2d 61 74 20 22 5c | 5c 73 2d 2a 5c 22 22 20 |ng-at "\|\s-*\"" |
|00001130| 6e 65 78 74 2d 6c 69 6e | 65 20 31 20 30 20 63 6f |next-lin|e 1 0 co|
|00001140| 20 78 70 6d 2d 6e 75 6d | 2d 63 6f 6c 6f 72 73 20 | xpm-num|-colors |
|00001150| 66 6f 72 6d 61 74 20 22 | 5c 22 25 73 09 63 20 25 |format "|\"%s.c %|
|00001160| 73 5c 22 2c 5c 6e 22 20 | 73 74 72 20 63 6f 6c 6f |s\",\n" |str colo|
|00001170| 72 20 70 72 65 76 69 6f | 75 73 2d 6c 69 6e 65 20 |r previo|us-line |
|00001180| 78 70 6d 2d 70 61 72 73 | 65 2d 63 6f 6c 6f 72 20 |xpm-pars|e-color |
|00001190| 65 6e 74 72 79 20 3f 5c | 20 20 3f 5c 22 20 32 20 |entry ?\|  ?\" 2 |
|000011a0| 6f 6c 64 2d 63 6f 6c 6f | 72 73 20 3f 30 20 3f 39 |old-colo|rs ?0 ?9|
|000011b0| 20 64 65 6c 65 74 65 2d | 63 68 61 72 20 69 6e 74 | delete-|char int|
|000011c0| 2d 74 6f 2d 73 74 72 69 | 6e 67 5d 20 35 20 28 23 |-to-stri|ng] 5 (#|
|000011d0| 24 20 2e 20 34 31 32 39 | 29 20 22 73 50 69 78 65 |$ . 4129|) "sPixe|
|000011e0| 6c 20 63 68 61 72 61 63 | 74 65 72 3a 20 5c 6e 73 |l charac|ter: \ns|
|000011f0| 50 69 78 65 6c 20 63 6f | 6c 6f 72 20 28 61 6e 79 |Pixel co|lor (any|
|00001200| 20 76 61 6c 69 64 20 58 | 20 63 6f 6c 6f 72 20 73 | valid X| color s|
|00001210| 74 72 69 6e 67 29 3a 22 | 5d 29 0a 23 40 33 37 20 |tring):"|]).#@37 |
|00001220| 6d 6f 76 65 20 74 6f 20 | 63 6f 6c 6f 72 20 44 45 |move to |color DE|
|00001230| 46 20 69 6e 20 74 68 65 | 20 78 70 6d 20 68 65 61 |F in the| xpm hea|
|00001240| 64 65 72 1f 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |der..(de|falias '|
|00001250| 78 70 6d 2d 67 6f 74 6f | 2d 63 6f 6c 6f 72 2d 64 |xpm-goto|-color-d|
|00001260| 65 66 20 23 5b 28 64 65 | 66 29 20 22 65 62 88 c0 |ef #[(de|f) "eb..|
|00001270| c1 21 ac 86 c2 c3 21 88 | aa 75 c2 c3 21 88 c0 c1 |.!....!.|.u..!...|
|00001280| 21 ac 86 c2 c3 21 88 aa | 75 c2 0c 21 87 22 20 5b |!....!..|u..!." [|
|00001290| 6c 6f 6f 6b 69 6e 67 2d | 61 74 20 22 5c 5c 73 2d |looking-|at "\\s-|
|000012a0| 2a 5c 22 22 20 6e 65 78 | 74 2d 6c 69 6e 65 20 31 |*\"" nex|t-line 1|
|000012b0| 20 64 65 66 5d 20 32 20 | 28 23 24 20 2e 20 34 36 | def] 2 |(#$ . 46|
|000012c0| 34 30 29 20 22 6e 43 6f | 6c 6f 72 20 6e 75 6d 62 |40) "nCo|lor numb|
|000012d0| 65 72 3a 22 5d 29 0a 23 | 40 36 32 20 6d 6f 76 65 |er:"]).#|@62 move|
|000012e0| 20 74 6f 20 4c 49 4e 45 | 20 6c 69 6e 65 73 20 64 | to LINE| lines d|
|000012f0| 6f 77 6e 20 66 72 6f 6d | 20 74 68 65 20 73 74 61 |own from| the sta|
|00001300| 72 74 20 6f 66 20 74 68 | 65 20 62 6f 64 79 20 6f |rt of th|e body o|
|00001310| 66 20 61 6e 20 78 70 6d | 1f 0a 28 64 65 66 61 6c |f an xpm|..(defal|
|00001320| 69 61 73 20 27 78 70 6d | 2d 67 6f 74 6f 2d 62 6f |ias 'xpm|-goto-bo|
|00001330| 64 79 2d 6c 69 6e 65 20 | 23 5b 28 6c 69 6e 65 29 |dy-line |#[(line)|
|00001340| 20 22 65 62 88 c0 c1 20 | 21 88 c2 0b 21 87 22 20 | "eb... |!...!." |
|00001350| 5b 78 70 6d 2d 67 6f 74 | 6f 2d 63 6f 6c 6f 72 2d |[xpm-got|o-color-|
|00001360| 64 65 66 20 78 70 6d 2d | 6e 75 6d 2d 63 6f 6c 6f |def xpm-|num-colo|
|00001370| 72 73 20 6e 65 78 74 2d | 6c 69 6e 65 20 6c 69 6e |rs next-|line lin|
|00001380| 65 5d 20 32 20 28 23 24 | 20 2e 20 34 38 32 38 29 |e] 2 (#$| . 4828)|
|00001390| 20 22 6e 42 6f 64 79 20 | 6c 69 6e 65 3a 22 5d 29 | "nBody |line:"])|
|000013a0| 0a 23 40 37 30 20 44 69 | 73 70 6c 61 79 20 74 68 |.#@70 Di|splay th|
|000013b0| 65 20 78 70 6d 20 69 6e | 20 74 68 65 20 63 75 72 |e xpm in| the cur|
|000013c0| 72 65 6e 74 20 62 75 66 | 66 65 72 20 61 74 20 74 |rent buf|fer at t|
|000013d0| 68 65 20 65 6e 64 20 6f | 66 20 74 68 65 20 74 6f |he end o|f the to|
|000013e0| 70 6d 6f 73 74 20 6c 69 | 6e 65 1f 0a 28 64 65 66 |pmost li|ne..(def|
|000013f0| 61 6c 69 61 73 20 27 78 | 70 6d 2d 73 68 6f 77 2d |alias 'x|pm-show-|
|00001400| 69 6d 61 67 65 20 23 5b | 6e 69 6c 20 22 8a c0 09 |image #[|nil "...|
|00001410| 21 ab 84 c2 09 21 88 c3 | c4 c5 c6 65 64 7b 23 21 |!....!..|...ed{#!|
|00001420| 16 07 65 62 88 c8 7f 88 | c9 0e 07 60 ca 23 89 11 |..eb....|...`.#..|
|00001430| 29 87 22 20 5b 61 6e 6e | 6f 74 61 74 69 6f 6e 70 |)." [ann|otationp|
|00001440| 20 78 70 6d 2d 61 6e 6e | 6f 20 64 65 6c 65 74 65 | xpm-ann|o delete|
|00001450| 2d 61 6e 6e 6f 74 61 74 | 69 6f 6e 20 6d 61 6b 65 |-annotat|ion make|
|00001460| 2d 67 6c 79 70 68 20 76 | 65 63 74 6f 72 20 78 70 |-glyph v|ector xp|
|00001470| 6d 20 3a 64 61 74 61 20 | 78 70 6d 2d 67 6c 79 70 |m :data |xpm-glyp|
|00001480| 68 20 6e 69 6c 20 6d 61 | 6b 65 2d 61 6e 6e 6f 74 |h nil ma|ke-annot|
|00001490| 61 74 69 6f 6e 20 74 65 | 78 74 5d 20 36 20 28 23 |ation te|xt] 6 (#|
|000014a0| 24 20 2e 20 35 30 33 30 | 29 20 6e 69 6c 5d 29 0a |$ . 5030|) nil]).|
|000014b0| 23 40 34 35 20 52 65 6d | 6f 76 65 20 74 68 65 20 |#@45 Rem|ove the |
|000014c0| 69 6d 61 67 65 20 6f 66 | 20 74 68 65 20 78 70 6d |image of| the xpm|
|000014d0| 20 66 72 6f 6d 20 74 68 | 65 20 62 75 66 66 65 72 | from th|e buffer|
|000014e0| 1f 0a 28 64 65 66 61 6c | 69 61 73 20 27 78 70 6d |..(defal|ias 'xpm|
|000014f0| 2d 68 69 64 65 2d 69 6d | 61 67 65 20 23 5b 6e 69 |-hide-im|age #[ni|
|00001500| 6c 20 22 c0 09 21 ad 83 | c2 09 21 87 22 20 5b 61 |l "..!..|..!." [a|
|00001510| 6e 6e 6f 74 61 74 69 6f | 6e 70 20 78 70 6d 2d 61 |nnotatio|np xpm-a|
|00001520| 6e 6e 6f 20 64 65 6c 65 | 74 65 2d 61 6e 6e 6f 74 |nno dele|te-annot|
|00001530| 61 74 69 6f 6e 5d 20 32 | 20 28 23 24 20 2e 20 35 |ation] 2| (#$ . 5|
|00001540| 33 30 31 29 20 6e 69 6c | 5d 29 0a 28 64 65 66 61 |301) nil|]).(defa|
|00001550| 6c 69 61 73 20 27 78 70 | 6d 2d 69 6e 2d 62 6f 64 |lias 'xp|m-in-bod|
|00001560| 79 20 23 5b 6e 69 6c 20 | 22 60 18 8a c1 c2 21 88 |y #[nil |"`....!.|
|00001570| 08 60 56 2a 87 22 20 5b | 70 20 78 70 6d 2d 67 6f |.`V*." [|p xpm-go|
|00001580| 74 6f 2d 62 6f 64 79 2d | 6c 69 6e 65 20 30 5d 20 |to-body-|line 0] |
|00001590| 32 5d 29 0a 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |2]).(byt|e-code "|
|000015a0| c0 c1 21 ac 82 c2 11 c1 | 0b 42 13 c4 c1 21 88 c5 |..!.....|.B...!..|
|000015b0| c1 c6 c2 23 88 c0 c7 21 | ac 84 c8 20 16 07 c7 0b |...#...!|... ....|
|000015c0| 42 13 c2 87 22 20 5b 62 | 6f 75 6e 64 70 20 78 70 |B..." [b|oundp xp|
|000015d0| 6d 2d 6d 6f 64 65 20 6e | 69 6c 20 63 75 72 72 65 |m-mode n|il curre|
|000015e0| 6e 74 2d 6c 6f 61 64 2d | 6c 69 73 74 20 6d 61 6b |nt-load-|list mak|
|000015f0| 65 2d 76 61 72 69 61 62 | 6c 65 2d 62 75 66 66 65 |e-variab|le-buffe|
|00001600| 72 2d 6c 6f 63 61 6c 20 | 61 64 64 2d 6d 69 6e 6f |r-local |add-mino|
|00001610| 72 2d 6d 6f 64 65 20 22 | 20 58 50 4d 22 20 78 70 |r-mode "| XPM" xp|
|00001620| 6d 2d 6d 6f 64 65 2d 6d | 61 70 20 6d 61 6b 65 2d |m-mode-m|ap make-|
|00001630| 6b 65 79 6d 61 70 5d 20 | 34 29 0a 23 40 31 36 20 |keymap] |4).#@16 |
|00001640| 54 6f 6f 6c 62 61 72 20 | 62 75 74 74 6f 6e 1f 0a |Toolbar |button..|
|00001650| 28 64 65 66 61 6c 69 61 | 73 20 27 78 70 6d 2d 74 |(defalia|s 'xpm-t|
|00001660| 6f 6f 6c 62 61 72 2d 73 | 65 6c 65 63 74 2d 63 6f |oolbar-s|elect-co|
|00001670| 6c 6f 75 72 20 23 5b 28 | 65 76 65 6e 74 20 63 68 |lour #[(|event ch|
|00001680| 61 72 73 29 20 22 c0 09 | 21 1a c3 5c 6e 21 1c c5 |ars) "..|!..\n!..|
|00001690| c6 0c 0e 07 23 88 c8 c9 | 0e 5c 6e 5c 22 16 5c 6e |....#...|.\n\".\n|
|000016a0| 0e 07 16 0b cc 0e 0d 70 | 0e 5c 6e 42 5c 22 2a 87 |.......p|.\nB\"*.|
|000016b0| 22 20 5b 65 76 65 6e 74 | 2d 74 6f 6f 6c 62 61 72 |" [event|-toolbar|
|000016c0| 2d 62 75 74 74 6f 6e 20 | 65 76 65 6e 74 20 62 75 |-button |event bu|
|000016d0| 74 74 6f 6e 20 74 6f 6f | 6c 62 61 72 2d 62 75 74 |tton too|lbar-but|
|000016e0| 74 6f 6e 2d 68 65 6c 70 | 2d 73 74 72 69 6e 67 20 |ton-help|-string |
|000016f0| 68 65 6c 70 20 6d 65 73 | 73 61 67 65 20 22 54 6f |help mes|sage "To|
|00001700| 6f 6c 62 61 72 20 73 65 | 6c 65 63 74 65 64 20 25 |olbar se|lected %|
|00001710| 73 20 28 25 73 29 22 20 | 63 68 61 72 73 20 6d 61 |s (%s)" |chars ma|
|00001720| 70 63 61 72 20 23 5b 28 | 62 75 74 29 20 22 08 c1 |pcar #[(|but) "..|
|00001730| 5c 6e 08 c3 48 61 3f 49 | 88 08 87 22 20 5b 62 75 |\n..Ha?I|..." [bu|
|00001740| 74 20 32 20 68 65 6c 70 | 20 33 5d 20 35 5d 20 78 |t 2 help| 3] 5] x|
|00001750| 70 6d 2d 70 61 6c 65 74 | 74 65 20 78 70 6d 2d 70 |pm-palet|te xpm-p|
|00001760| 61 69 6e 74 2d 73 74 72 | 69 6e 67 20 73 65 74 2d |aint-str|ing set-|
|00001770| 73 70 65 63 69 66 69 65 | 72 20 6c 65 66 74 2d 74 |specifie|r left-t|
|00001780| 6f 6f 6c 62 61 72 5d 20 | 34 20 28 23 24 20 2e 20 |oolbar] |4 (#$ . |
|00001790| 35 36 39 36 29 5d 29 0a | 28 64 65 66 61 6c 69 61 |5696)]).|(defalia|
|000017a0| 73 20 27 78 70 6d 2d 6d | 6f 75 73 65 2d 70 61 69 |s 'xpm-m|ouse-pai|
|000017b0| 6e 74 20 23 5b 28 65 76 | 65 6e 74 29 20 22 c0 09 |nt #[(ev|ent) "..|
|000017c0| 21 88 c2 20 ab 88 0b 63 | 88 c4 0b 47 21 87 8a c5 |!.. ...c|...G!...|
|000017d0| 79 88 c6 75 88 60 60 54 | 7b 89 13 29 87 22 20 5b |y..u.``T|{..)." [|
|000017e0| 6d 6f 75 73 65 2d 73 65 | 74 2d 70 6f 69 6e 74 20 |mouse-se|t-point |
|000017f0| 65 76 65 6e 74 20 78 70 | 6d 2d 69 6e 2d 62 6f 64 |event xp|m-in-bod|
|00001800| 79 20 78 70 6d 2d 70 61 | 69 6e 74 2d 73 74 72 69 |y xpm-pa|int-stri|
|00001810| 6e 67 20 64 65 6c 65 74 | 65 2d 63 68 61 72 20 30 |ng delet|e-char 0|
|00001820| 20 31 5d 20 32 20 6e 69 | 6c 20 22 65 22 5d 29 0a | 1] 2 ni|l "e"]).|
|00001830| 28 64 65 66 61 6c 69 61 | 73 20 27 78 70 6d 2d 6d |(defalia|s 'xpm-m|
|00001840| 6f 75 73 65 2d 64 6f 77 | 6e 20 23 5b 28 65 76 65 |ouse-dow|n #[(eve|
|00001850| 6e 74 20 6e 29 20 22 c0 | 09 21 88 c2 20 ab b4 0b |nt n) ".|.!.. ...|
|00001860| 63 88 c4 0b 47 21 88 0d | ab 83 c6 20 88 c7 60 53 |c...G!..|... ..`S|
|00001870| 60 53 0e 08 5c 5c 5c 22 | c9 0b 0e 5c 6e 5c 22 1e |`S..\\\"|...\n\".|
|00001880| 0b 1e 0c 0e 0b ab 89 cd | 0e 0c 0e 0b 41 5c 22 aa |........|....A\".|
|00001890| 85 cd 0e 0c ce 5c 22 2a | 87 8a cf 79 88 d0 75 88 |.....\"*|...y..u.|
|000018a0| 60 60 54 7b 89 13 29 87 | 22 20 5b 6d 6f 75 73 65 |``T{..).|" [mouse|
|000018b0| 2d 73 65 74 2d 70 6f 69 | 6e 74 20 65 76 65 6e 74 |-set-poi|nt event|
|000018c0| 20 78 70 6d 2d 69 6e 2d | 62 6f 64 79 20 78 70 6d | xpm-in-|body xpm|
|000018d0| 2d 70 61 69 6e 74 2d 73 | 74 72 69 6e 67 20 64 65 |-paint-s|tring de|
|000018e0| 6c 65 74 65 2d 63 68 61 | 72 20 78 70 6d 2d 61 6c |lete-cha|r xpm-al|
|000018f0| 77 61 79 73 2d 75 70 64 | 61 74 65 2d 69 6d 61 67 |ways-upd|ate-imag|
|00001900| 65 20 78 70 6d 2d 73 68 | 6f 77 2d 69 6d 61 67 65 |e xpm-sh|ow-image|
|00001910| 20 6d 61 6b 65 2d 65 78 | 74 65 6e 74 20 78 70 6d | make-ex|tent xpm|
|00001920| 2d 63 68 61 72 73 2d 70 | 65 72 2d 70 69 78 65 6c |-chars-p|er-pixel|
|00001930| 20 61 73 73 6f 63 20 78 | 70 6d 2d 70 69 78 65 6c | assoc x|pm-pixel|
|00001940| 2d 76 61 6c 75 65 73 20 | 70 69 78 65 6c 2d 63 6f |-values |pixel-co|
|00001950| 6c 6f 72 20 65 78 74 20 | 73 65 74 2d 65 78 74 65 |lor ext |set-exte|
|00001960| 6e 74 2d 66 61 63 65 20 | 64 65 66 61 75 6c 74 20 |nt-face |default |
|00001970| 30 20 31 5d 20 34 5d 29 | 0a 28 64 65 66 61 6c 69 |0 1] 4])|.(defali|
|00001980| 61 73 20 27 78 70 6d 2d | 6d 6f 75 73 65 2d 64 72 |as 'xpm-|mouse-dr|
|00001990| 61 67 20 23 5b 28 65 76 | 65 6e 74 20 6e 20 74 69 |ag #[(ev|ent n ti|
|000019a0| 6d 65 6f 75 74 29 20 22 | 08 ae ca c1 5c 6e 21 88 |meout) "|....\n!.|
|000019b0| c3 20 ad c2 0c 60 0c 47 | 60 5c 5c 7b 98 ae b8 c5 |. ...`.G|`\\{....|
|000019c0| c6 0c 21 c7 5c 22 88 c8 | 0c 47 21 88 0e 09 ab 83 |..!.\"..|.G!.....|
|000019d0| ca 20 88 cb 60 53 60 53 | 0e 0c 5c 5c 5c 22 cd 0c |. ..`S`S|..\\\"..|
|000019e0| 0e 0e 5c 22 1e 0f 1e 10 | 0e 0f ab 89 d1 0e 10 0e |..\"....|........|
|000019f0| 0f 41 5c 22 aa 85 d1 0e | 10 d2 5c 22 2a 87 22 20 |.A\"....|..\"*." |
|00001a00| 5b 74 69 6d 65 6f 75 74 | 20 6d 6f 75 73 65 2d 73 |[timeout| mouse-s|
|00001a10| 65 74 2d 70 6f 69 6e 74 | 20 65 76 65 6e 74 20 78 |et-point| event x|
|00001a20| 70 6d 2d 69 6e 2d 62 6f | 64 79 20 78 70 6d 2d 70 |pm-in-bo|dy xpm-p|
|00001a30| 61 69 6e 74 2d 73 74 72 | 69 6e 67 20 69 6e 73 65 |aint-str|ing inse|
|00001a40| 72 74 2d 63 68 61 72 20 | 73 74 72 69 6e 67 2d 74 |rt-char |string-t|
|00001a50| 6f 2d 63 68 61 72 20 31 | 20 64 65 6c 65 74 65 2d |o-char 1| delete-|
|00001a60| 63 68 61 72 20 78 70 6d | 2d 61 6c 77 61 79 73 2d |char xpm|-always-|
|00001a70| 75 70 64 61 74 65 2d 69 | 6d 61 67 65 20 78 70 6d |update-i|mage xpm|
|00001a80| 2d 73 68 6f 77 2d 69 6d | 61 67 65 20 6d 61 6b 65 |-show-im|age make|
|00001a90| 2d 65 78 74 65 6e 74 20 | 78 70 6d 2d 63 68 61 72 |-extent |xpm-char|
|00001aa0| 73 2d 70 65 72 2d 70 69 | 78 65 6c 20 61 73 73 6f |s-per-pi|xel asso|
|00001ab0| 63 20 78 70 6d 2d 70 69 | 78 65 6c 2d 76 61 6c 75 |c xpm-pi|xel-valu|
|00001ac0| 65 73 20 70 69 78 65 6c | 2d 63 6f 6c 6f 72 20 65 |es pixel|-color e|
|00001ad0| 78 74 20 73 65 74 2d 65 | 78 74 65 6e 74 2d 66 61 |xt set-e|xtent-fa|
|00001ae0| 63 65 20 64 65 66 61 75 | 6c 74 5d 20 34 5d 29 0a |ce defau|lt] 4]).|
|00001af0| 28 64 65 66 61 6c 69 61 | 73 20 27 78 70 6d 2d 6d |(defalia|s 'xpm-m|
|00001b00| 6f 75 73 65 2d 75 70 20 | 23 5b 28 65 76 65 6e 74 |ouse-up |#[(event|
|00001b10| 20 6e 29 20 22 c0 20 87 | 22 20 5b 78 70 6d 2d 73 | n) ". .|" [xpm-s|
|00001b20| 68 6f 77 2d 69 6d 61 67 | 65 5d 20 31 5d 29 0a 23 |how-imag|e] 1]).#|
|00001b30| 40 36 37 31 20 54 72 65 | 61 74 20 74 68 65 20 63 |@671 Tre|at the c|
|00001b40| 75 72 72 65 6e 74 20 62 | 75 66 66 65 72 20 61 73 |urrent b|uffer as|
|00001b50| 20 61 6e 20 78 70 6d 20 | 66 69 6c 65 20 61 6e 64 | an xpm |file and|
|00001b60| 20 63 6f 6c 6f 72 69 7a | 65 20 69 74 2e 0a 0a 20 | coloriz|e it... |
|00001b70| 20 53 68 69 66 74 2d 62 | 75 74 74 6f 6e 2d 31 20 | Shift-b|utton-1 |
|00001b80| 6c 65 74 73 20 79 6f 75 | 20 70 61 69 6e 74 20 62 |lets you| paint b|
|00001b90| 79 20 64 72 61 67 67 69 | 6e 67 20 74 68 65 20 6d |y draggi|ng the m|
|00001ba0| 6f 75 73 65 2e 20 20 53 | 68 69 66 74 2d 62 75 74 |ouse.  S|hift-but|
|00001bb0| 74 6f 6e 2d 31 20 6f 6e | 20 61 0a 63 6f 6c 6f 72 |ton-1 on| a.color|
|00001bc0| 20 64 65 66 69 6e 69 74 | 69 6f 6e 20 6c 69 6e 65 | definit|ion line|
|00001bd0| 20 77 69 6c 6c 20 63 68 | 61 6e 67 65 20 74 68 65 | will ch|ange the|
|00001be0| 20 63 75 72 72 65 6e 74 | 20 70 61 69 6e 74 69 6e | current| paintin|
|00001bf0| 67 20 63 6f 6c 6f 72 20 | 74 6f 20 74 68 61 74 20 |g color |to that |
|00001c00| 6c 69 6e 65 27 73 0a 76 | 61 6c 75 65 2e 0a 0a 20 |line's.v|alue... |
|00001c10| 20 43 68 61 72 61 63 74 | 65 72 73 20 69 6e 73 65 | Charact|ers inse|
|00001c20| 72 74 65 64 20 66 72 6f | 6d 20 74 68 65 20 6b 65 |rted fro|m the ke|
|00001c30| 79 62 6f 61 72 64 20 77 | 69 6c 6c 20 4e 4f 54 20 |yboard w|ill NOT |
|00001c40| 62 65 20 63 6f 6c 6f 72 | 65 64 20 70 72 6f 70 65 |be color|ed prope|
|00001c50| 72 6c 79 20 79 65 74 2e | 0a 55 73 65 20 74 68 65 |rly yet.|.Use the|
|00001c60| 20 6d 6f 75 73 65 2c 20 | 6f 72 20 64 6f 20 78 70 | mouse, |or do xp|
|00001c70| 6d 2d 69 6e 69 74 20 28 | 5c 5b 78 70 6d 2d 69 6e |m-init (|\[xpm-in|
|00001c80| 69 74 5d 29 20 61 66 74 | 65 72 20 6d 61 6b 69 6e |it]) aft|er makin|
|00001c90| 67 20 63 68 61 6e 67 65 | 73 2e 0a 0a 5c 5b 78 70 |g change|s...\[xp|
|00001ca0| 6d 2d 61 64 64 2d 63 6f | 6c 6f 72 5d 20 41 64 64 |m-add-co|lor] Add|
|00001cb0| 20 61 20 6e 65 77 20 63 | 6f 6c 6f 72 2c 20 70 72 | a new c|olor, pr|
|00001cc0| 6f 6d 70 74 69 6e 67 20 | 66 6f 72 20 63 68 61 72 |ompting |for char|
|00001cd0| 61 63 74 65 72 20 61 6e | 64 20 76 61 6c 75 65 0a |acter an|d value.|
|00001ce0| 5c 5b 78 70 6d 2d 73 68 | 6f 77 2d 69 6d 61 67 65 |\[xpm-sh|ow-image|
|00001cf0| 5d 20 73 68 6f 77 20 74 | 68 65 20 63 75 72 72 65 |] show t|he curre|
|00001d00| 6e 74 20 69 6d 61 67 65 | 20 61 74 20 74 68 65 20 |nt image| at the |
|00001d10| 74 6f 70 20 6f 66 20 74 | 68 65 20 62 75 66 66 65 |top of t|he buffe|
|00001d20| 72 0a 5c 5b 78 70 6d 2d | 70 61 72 73 65 2d 63 6f |r.\[xpm-|parse-co|
|00001d30| 6c 6f 72 5d 20 70 61 72 | 73 65 20 74 68 65 20 63 |lor] par|se the c|
|00001d40| 75 72 72 65 6e 74 20 6c | 69 6e 65 27 73 20 63 6f |urrent l|ine's co|
|00001d50| 6c 6f 72 20 64 65 66 69 | 6e 69 74 69 6f 6e 20 61 |lor defi|nition a|
|00001d60| 6e 64 20 61 64 64 0a 20 | 20 20 69 74 20 74 6f 20 |nd add. |  it to |
|00001d70| 74 68 65 20 63 6f 6c 6f | 72 20 74 61 62 6c 65 2e |the colo|r table.|
|00001d80| 20 20 50 72 6f 76 69 64 | 65 64 20 61 73 20 61 20 |  Provid|ed as a |
|00001d90| 6d 65 61 6e 73 20 6f 66 | 20 63 68 61 6e 67 69 6e |means of| changin|
|00001da0| 67 20 63 6f 6c 6f 72 73 | 2e 0a 58 50 4d 20 6d 69 |g colors|..XPM mi|
|00001db0| 6e 6f 72 20 6d 6f 64 65 | 20 62 69 6e 64 69 6e 67 |nor mode| binding|
|00001dc0| 73 3a 0a 5c 7b 78 70 6d | 2d 6d 6f 64 65 2d 6d 61 |s:.\{xpm|-mode-ma|
|00001dd0| 70 7d 1f 0a 28 64 65 66 | 61 6c 69 61 73 20 27 78 |p}..(def|alias 'x|
|00001de0| 70 6d 2d 6d 6f 64 65 20 | 23 5b 28 26 6f 70 74 69 |pm-mode |#[(&opti|
|00001df0| 6f 6e 61 6c 20 61 72 67 | 29 20 22 08 ac 84 09 3f |onal arg|) "....?|
|00001e00| aa 85 c2 08 21 c3 56 89 | 11 ad d9 c4 20 88 c5 c6 |....!.V.|.... ...|
|00001e10| 21 88 c5 c7 21 88 c5 c8 | 21 88 c5 c9 21 88 c5 ca |!...!...|!...!...|
|00001e20| 21 88 cb 16 06 cc 16 07 | cd 16 08 cd 16 09 ce 16 |!.......|........|
|00001e30| 5c 6e c1 0e 0f b7 ae ad | d0 0e 11 d2 d3 23 88 d0 |\n......|.....#..|
|00001e40| 0e 11 d4 d5 23 88 d0 0e | 11 d6 d7 23 88 d0 0e 11 |....#...|...#....|
|00001e50| d8 d9 23 88 d0 0e 11 da | db 23 88 c1 0e 11 42 0e |..#.....|.#....B.|
|00001e60| 0f 42 89 16 0f 87 22 20 | 5b 61 72 67 20 78 70 6d |.B...." |[arg xpm|
|00001e70| 2d 6d 6f 64 65 20 70 72 | 65 66 69 78 2d 6e 75 6d |-mode pr|efix-num|
|00001e80| 65 72 69 63 2d 76 61 6c | 75 65 20 30 20 78 70 6d |eric-val|ue 0 xpm|
|00001e90| 2d 69 6e 69 74 20 6d 61 | 6b 65 2d 6c 6f 63 61 6c |-init ma|ke-local|
|00001ea0| 2d 76 61 72 69 61 62 6c | 65 20 6d 6f 75 73 65 2d |-variabl|e mouse-|
|00001eb0| 74 72 61 63 6b 2d 64 6f | 77 6e 2d 68 6f 6f 6b 20 |track-do|wn-hook |
|00001ec0| 6d 6f 75 73 65 2d 74 72 | 61 63 6b 2d 64 72 61 67 |mouse-tr|ack-drag|
|00001ed0| 2d 68 6f 6f 6b 20 6d 6f | 75 73 65 2d 74 72 61 63 |-hook mo|use-trac|
|00001ee0| 6b 2d 75 70 2d 68 6f 6f | 6b 20 6d 6f 75 73 65 2d |k-up-hoo|k mouse-|
|00001ef0| 74 72 61 63 6b 2d 64 72 | 61 67 2d 75 70 2d 68 6f |track-dr|ag-up-ho|
|00001f00| 6f 6b 20 6d 6f 75 73 65 | 2d 74 72 61 63 6b 2d 63 |ok mouse|-track-c|
|00001f10| 6c 69 63 6b 2d 68 6f 6f | 6b 20 78 70 6d 2d 6d 6f |lick-hoo|k xpm-mo|
|00001f20| 75 73 65 2d 64 6f 77 6e | 20 78 70 6d 2d 6d 6f 75 |use-down| xpm-mou|
|00001f30| 73 65 2d 64 72 61 67 20 | 78 70 6d 2d 6d 6f 75 73 |se-drag |xpm-mous|
|00001f40| 65 2d 75 70 20 6e 69 6c | 20 6d 69 6e 6f 72 2d 6d |e-up nil| minor-m|
|00001f50| 6f 64 65 2d 6d 61 70 2d | 61 6c 69 73 74 20 64 65 |ode-map-|alist de|
|00001f60| 66 69 6e 65 2d 6b 65 79 | 20 78 70 6d 2d 6d 6f 64 |fine-key| xpm-mod|
|00001f70| 65 2d 6d 61 70 20 5b 28 | 63 6f 6e 74 72 6f 6c 20 |e-map [(|control |
|00001f80| 63 29 20 72 5d 20 78 70 | 6d 2d 73 68 6f 77 2d 69 |c) r] xp|m-show-i|
|00001f90| 6d 61 67 65 20 5b 28 73 | 68 69 66 74 20 62 75 74 |mage [(s|hift but|
|00001fa0| 74 6f 6e 31 29 5d 20 6d | 6f 75 73 65 2d 74 72 61 |ton1)] m|ouse-tra|
|00001fb0| 63 6b 20 5b 62 75 74 74 | 6f 6e 31 5d 20 6d 6f 75 |ck [butt|on1] mou|
|00001fc0| 73 65 2d 74 72 61 63 6b | 2d 64 65 66 61 75 6c 74 |se-track|-default|
|00001fd0| 20 5b 28 63 6f 6e 74 72 | 6f 6c 20 63 29 20 63 5d | [(contr|ol c) c]|
|00001fe0| 20 78 70 6d 2d 61 64 64 | 2d 63 6f 6c 6f 72 20 5b | xpm-add|-color [|
|00001ff0| 28 63 6f 6e 74 72 6f 6c | 20 63 29 20 70 5d 20 78 |(control| c) p] x|
|00002000| 70 6d 2d 70 61 72 73 65 | 2d 63 6f 6c 6f 72 5d 20 |pm-parse|-color] |
|00002010| 35 20 28 23 24 20 2e 20 | 36 39 36 35 29 20 22 50 |5 (#$ . |6965) "P|
|00002020| 22 5d 29 0a 28 70 72 6f | 76 69 64 65 20 27 78 70 |"]).(pro|vide 'xp|
|00002030| 6d 2d 6d 6f 64 65 29 0a |                         |m-mode).|        |
+--------+-------------------------+-------------------------+--------+--------+